home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Apple Reference & Presen…rary 5 (Internal Edition)
/
Apple R&P Lib Internal v5.0.iso
/
6-Developer Demos
/
Developer Demos-Ed.
/
EARTHQUEST™ TOUR Demo
/
EARTHQUEST™ tour
/
EARTHQUEST™ tour
/
card_12386.txt
< prev
next >
Wrap
Text File
|
1990-08-03
|
5KB
|
230 lines
-- card: 12386 from stack: in
-- bmap block id: 11522
-- flags: 4000
-- background id: 10897
-- name: Saving the Environment
----- HyperTalk script -----
Endangered Air
Ecocycles
Ecocycles
-- part 1 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=0 top=0 right=38 bottom=40
-- title width / last selected line: 0
-- icon id / first selected line: 12553 / 12553
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
exit mouseup
end mouseUp
-- part 2 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=410 top=0 right=51 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: goback
----- HyperTalk script -----
on mouseUp
pop card
end mouseUp
-- part 3 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=10 top=86 right=137 bottom=112
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Thrush
----- HyperTalk script -----
on mouseUp
play "thrush"
end mouseUp
-- part 4 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=302 top=120 right=303 bottom=477
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Gardening
----- HyperTalk script -----
on mouseUp
play "bird"
dowindow "Gardening"
end mouseUp
-- part 5 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=18 top=164 right=210 bottom=105
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Water
----- HyperTalk script -----
on mouseUp
play "water"
end mouseUp
-- part 9 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=113 top=158 right=275 bottom=324
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 512
-- line height: 16
-- part name: Kenyan Proverb
----- HyperTalk script -----
on mouseup
hide me
end mouseup
-- part 10 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=124 top=48 right=304 bottom=298
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Kenyan Proverb
----- HyperTalk script -----
on mouseUp
play "flute"
set the visible of cd field "Kenyan Proverb" to not the visible of cd field "Kenyan Proverb"
end mouseUp
-- part 11 (button)
-- low flags: 80
-- high flags: 8004
-- rect: left=315 top=10 right=44 bottom=405
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: test demo
----- HyperTalk script -----
on mouseUp
set cantmodify of this stack to true
set usermodify to true
set the hilite of bg btn info to true
wait 15
set the hilite of bg btn info to false
play click
TKdoPICT ("airinfopict,screen")
set the loc of btn darkness to 144,308
show btn "darkness"
set the hilite of btn darkness to true
wait 3
set the loc of btn darkness to 144,292
wait 3
set the loc of btn darkness to 144,276
wait 3
set the loc of btn darkness to 144,260
wait 3
set the loc of btn darkness to 144,245
wait 3
set the loc of btn darkness to 144,229
wait 3
set the loc of btn darkness to 144,212
wait 3
set the loc of btn darkness to 144,196
wait 60
hide btn "darkness"
set the hilite of btn darkness to false
play "bird"
tkshowpict "savingpict",10,27
wait 120
play click
lock screen
unlock screen
end mouseUp
--tkdopict "airinfopict,screen" ,73,135
--show btn "hiliteman"
--set the loc of btn hilite man to
-- part 12 (button)
-- low flags: 80
-- high flags: 4000
-- rect: left=78 top=188 right=204 bottom=212
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: darkness
----- HyperTalk script -----
on mouseUp
put "set the loc of btn darkness to"&&the loc of me&&return after card fld collectit
end mouseUp
-- part contents for background part 1
----- text -----
Saving The Environment
-- part contents for card part 9
----- text -----
"Treat the Earth well; it was not given to you by your parents, it was lent to you by your children."
Kenyan proverb